home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 2 / 64er_Magazin_Sonderheft_02_86-02_1986_Markt__Technik_de.d64 / listing 4 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  1KB  |  54 lines
  1. 1000 rem *** sprite-entwurf ***
  2. 1010 :
  3. 1020 :
  4. 1030 rem ** ausgabe programmeldung
  5. 1040 :
  6. 1050 print "[147]bitte warten";
  7. 1060 :
  8. 1070 :
  9. 1080 rem ** sprite-daten einlesen
  10. 1090 :
  11. 1100 for n = 896 to 958
  12. 1105 :   read spdta
  13. 1110 :   poke n, spdta
  14. 1120 next n
  15. 1121 :
  16. 1122 data   0,  60,   0,   0,  36,   0
  17. 1123 data   0, 102,  24,   0, 102,  56
  18. 1124 data   0,  36,  56,   0,  60,  16
  19. 1125 data   0,  24,  16,   0,  24,  16
  20. 1126 data  15, 255, 240,   8, 126,   0
  21. 1127 data   8, 126,   0,   8,  24,   0
  22. 1128 data  28,  24,   0,  28,  24,   0
  23. 1129 data  24,  60,   0,   0,  60,   0
  24. 1130 data   0,  36,   0,   0,  36,   0
  25. 1131 data   0,  36,   0,   3, 231, 192
  26. 1132 data   3, 231, 192
  27. 1140 :
  28. 1150 rem ** sprite-steuerung
  29. 1160 :
  30. 1170 print "[147]";    :rem bilds.loeschen
  31. 1180 poke 2040,14  :rem datenzeiger
  32. 1190 :
  33. 1200 vic = 53248   :rem vic-baustein
  34. 1210 poke vic,170  :rem horizont. pos.
  35. 1220 poke vic+1,120:rem vertikale pos.
  36. 1230 poke vic+39,1  :rem weisse farbe
  37. 1240 poke vic+21,1 :rem sprite 0 ein
  38. 1250 :
  39. 1260 :
  40. 1270 rem ** prog.ende nach tastendruck
  41. 1280 :
  42. 1290 get kp$
  43. 1300 if kp$ = "" then 1290
  44. 1310 :
  45. 1320 :
  46. 1330 rem ** register zuruecksetzen
  47. 1340 :
  48. 1350 poke vic+21,0 :rem ruecksetzung
  49. 1360 poke vic+39,0 :rem in umgekehrter
  50. 1370 poke vic+1,0  :rem reihenfolge...
  51. 1380 poke vic,0
  52. 1390 :
  53. 1400 end
  54.